home *** CD-ROM | disk | FTP | other *** search
/ Computer Select (Limited Edition) / Computer Select.iso / pcc / v04n08 / shell.exe / YOURSHEL.BAT < prev   
Encoding:
DOS Batch File  |  1991-07-13  |  5.3 KB  |  177 lines
  1. @ECHO OFF
  2. REM This is YOURSHEL.BAT
  3. IF NOT EXIST SNIFFIT.COM GOTO OOPSNF
  4. IF NOT !%X%==! GOTO START
  5. IF NOT EXIST PARTONE GOTO OOPS
  6. CD > PARTTWO
  7. COPY PARTONE+PARTTWO SETENV.BAT
  8. CALL SETENV
  9. DEL PARTTWO
  10. DEL SETENV.BAT
  11. :START
  12. ECHO @ECHO OFF        > \RETURN.BAT
  13. ECHO CD %%X%%         >> \RETURN.BAT
  14. ECHO SET PROMPT=%%OP%%>> \RETURN.BAT
  15. ECHO YOURSHEL         >> \RETURN.BAT
  16. :TOP
  17. SET D=
  18. SET S=
  19. REM == USE BOXMAKER.BAS TO CREATE BOX 1--INSERT 20 LINES HERE ==
  20. @ECHO OFF
  21. CLS
  22. ECHO.
  23. ECHO.
  24. ECHO.
  25. ECHO.
  26. ECHO.
  27. ECHO.
  28. ECHO                  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█
  29. ECHO                  █                                           █▓▓
  30. ECHO                  █         Main Menu                         █▓▓
  31. ECHO                  █                                           █▓▓
  32. ECHO                  █         A - Run WordPerfect               █▓▓
  33. ECHO                  █         B - Run ProComm                   █▓▓
  34. ECHO                  █         C - Go to DOS Utility Menu        █▓▓
  35. ECHO                  █         D - Go to DOS Prompt              █▓▓
  36. ECHO                  █                (or press ESC to quit)     █▓▓
  37. ECHO                  █                                           █▓▓
  38. ECHO                  █                                           █▓▓
  39. ECHO                  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█▓▓
  40. ECHO                    ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  41. SNIFFIT
  42. IF ERRORLEVEL 255 GOTO BYE
  43. IF ERRORLEVEL 69 GOTO TOP
  44. IF ERRORLEVEL 68 GOTO DOS
  45. IF ERRORLEVEL 67 GOTO DOSUTIL
  46. IF ERRORLEVEL 66 GOTO COMMUN
  47. IF ERRORLEVEL 65 GOTO WORDP
  48. GOTO TOP
  49. :WORDP
  50. REM == The next 2 lines assume a program called WP in directory \WP 
  51. CD \WP
  52. WP
  53. CD %X%
  54. GOTO TOP
  55. :COMMUN
  56. REM == The next 2 lines assume a program called PCPLUS in directory \COMMUN
  57. CD \COMMUN
  58. PCPLUS
  59. CD %X%
  60. GOTO TOP
  61. :DOSUTIL
  62. REM == USE BOXMAKER.BAS TO CREATE BOX 2--INSERT 20 LINES HERE ==
  63. @ECHO OFF
  64. CLS
  65. ECHO.
  66. ECHO.
  67. ECHO.
  68. ECHO.
  69. ECHO.
  70. ECHO.
  71. ECHO                  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█
  72. ECHO                  █                                           █▓▓
  73. ECHO                  █         DOS Utility Menu                  █▓▓
  74. ECHO                  █                                           █▓▓
  75. ECHO                  █         A - See Subdirectory Map          █▓▓
  76. ECHO                  █         B - Check Available Space         █▓▓
  77. ECHO                  █         C - Display Date and Time         █▓▓
  78. ECHO                  █         D - Directory of Drive C:         █▓▓
  79. ECHO                  █                (or ESC for previous menu) █▓▓
  80. ECHO                  █                                           █▓▓
  81. ECHO                  █                                           █▓▓
  82. ECHO                  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█▓▓
  83. ECHO                    ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  84. SNIFFIT
  85. IF ERRORLEVEL 255 GOTO TOP
  86. IF ERRORLEVEL 68 GOTO DIRMENU
  87. IF ERRORLEVEL 67 GOTO TIMEDATE
  88. IF ERRORLEVEL 66 GOTO SYSCHEK
  89. IF ERRORLEVEL 65 GOTO SEETREE
  90. GOTO DOSUTIL
  91. :SEETREE
  92. CLS
  93. ECHO Checking disk...
  94. TREE \ | MORE
  95. PAUSE
  96. GOTO DOSUTIL
  97. :SYSCHEK
  98. CLS
  99. ECHO Checking disk space...
  100. CHKDSK
  101. PAUSE
  102. GOTO DOSUTIL
  103. :TIMEDATE
  104. CALL DATETIME
  105. PAUSE
  106. GOTO DOSUTIL
  107. :DIRMENU
  108. REM == USE BOXMAKER.BAS TO CREATE BOX 3--INSERT 20 LINES HERE ==
  109. @ECHO OFF
  110. CLS
  111. ECHO.
  112. ECHO.
  113. ECHO.
  114. ECHO.
  115. ECHO.
  116. ECHO.
  117. ECHO                  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█
  118. ECHO                  █                                           █▓▓
  119. ECHO                  █         What Options for Drive C:?        █▓▓
  120. ECHO                  █                                           █▓▓
  121. ECHO                  █         Sort by Year            1         █▓▓
  122. ECHO                  █         Sort by Filename        2         █▓▓
  123. ECHO                  █         Sort by Extension       3         █▓▓
  124. ECHO                  █         Sort by File Size       4         █▓▓
  125. ECHO                  █                (or ESC for previous menu) █▓▓
  126. ECHO                  █                                           █▓▓
  127. ECHO                  █                                           █▓▓
  128. ECHO                  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█▓▓
  129. ECHO                    ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  130. SNIFFIT
  131. IF ERRORLEVEL 255 GOTO DOSUTIL
  132. IF ERRORLEVEL 53  GOTO DIRMENU
  133. IF ERRORLEVEL 52 GOTO DO_SIZE
  134. IF ERRORLEVEL 51 GOTO DO_EXT
  135. IF ERRORLEVEL 50 GOTO DO_NAME
  136. IF ERRORLEVEL 49 GOTO DO_DATE
  137. GOTO DIRMENU
  138. :DO_DATE
  139. CLS
  140. ECHO Sorting Drive C: by year...
  141. DIR C: | SORT /+24 | SORT /+30 | MORE
  142. PAUSE
  143. GOTO DIRMENU
  144. :DO_NAME
  145. CLS
  146. ECHO Sorting Drive C: by name...
  147. DIR C: | SORT /+1  | MORE
  148. PAUSE
  149. GOTO DIRMENU
  150. :DO_EXT
  151. CLS
  152. ECHO Sorting Drive C: by extension...
  153. DIR C: | SORT /+10 | MORE
  154. PAUSE
  155. GOTO DIRMENU 
  156. :DO_SIZE
  157. CLS
  158. ECHO Sorting Drive C: by size...
  159. DIR C: | SORT /+14 | MORE
  160. PAUSE
  161. GOTO DIRMENU
  162. :DOS
  163. SET OP=%PROMPT%
  164. PROMPT Enter \RETURN to get back to Shell $_%OP%
  165. GOTO TEMPBYE
  166. :OOPSNF
  167. ECHO Sorry, this needs SNIFFIT.COM to work properly.
  168. GOTO TEMPBYE
  169. :OOPS
  170. ECHO To make this work you need to create a PARTONE file:
  171. ECHO To create it, type:  COPY CON PARTONE
  172. ECHO Then type:  SET X= (BUT DON'T PRESS THE ENTER KEY!!!)
  173. ECHO Finally, press the F6 key and then the Enter key
  174. :BYE
  175. IF EXIST \RETURN.BAT DEL \RETURN.BAT
  176. :TEMPBYE
  177.